﻿'
'19-10-11 
'Copyright (c) 2011, Yonel Meza Avila
'All rights reserved.
'Liberado bajo licencia New BSD License (BSD) 
'
'
'Cinta de quipux para el Word

Imports Microsoft.Office.Tools.Ribbon

Public Class Ribbon1

    Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load

    End Sub
    'Abre dialogo para recolectar la metadata y enviar el documento
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
        Dim c As New DialogEnviar
        c.ShowDialog()

    End Sub
    'Muestra el acerca de QuipuxConnector
    Private Sub Group1_DialogLauncherClick(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Group1.DialogLauncherClick
        Dim SS As New SplashScreen1
        SS.Show()

    End Sub
    'Reinicia la configuración del addin a la por defecto
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button2.Click
        Dim settings As MySettings = New MySettings
        settings.Reset()
        settings.Save()
        MsgBox("Configuración restaurada")
    End Sub
    'Abre dialogo para cambiar la configuración del addin
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button3.Click
        Dim dialogo As DialogConfig = New DialogConfig
        dialogo.ShowDialog()
    End Sub
End Class
